﻿Imports System.Activities
Imports System.Activities.Presentation.Metadata
Imports System.Drawing
Imports System.ComponentModel

Public Class WebGetActivity
    Inherits WebBase

    Public Sub New()
        Me.DisplayName = My.Resources.WebGetActivityDisplayName
    End Sub

    Protected Overrides Function BeginExecute(context As System.Activities.AsyncCodeActivityContext, callback As System.AsyncCallback, state As Object) As System.IAsyncResult
        Me._verbs = "GET"
        Return MyBase.BeginExecute(context, callback, state)
    End Function

    Public Overrides Sub Register()
        MyBase.Register()
        Dim build As New AttributeTableBuilder
        'WebGetActivity Activity
        build.AddCustomAttributes(GetType(WebGetActivity),
                                              New DesignerAttribute(GetType(WebGetActivityDesigner)),
                                              New ToolboxBitmapAttribute(GetType(WebGetActivity), "WebGetActivity.png"))

        MetadataStore.AddAttributeTable(build.CreateTable)
    End Sub

End Class
